(define l '(1 2 3 4 5 6 7))
(define (f x) (+ x x))
(for-each print (map f l))
